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-- BcdHeap.Mesa Edited by Johnsson on February 26. 1978 12:20 PM 

DIRECTORY 

AltoDefs: FROM "altodefs". 
BcdHeapDefs: FROM "BcdHeapDef s\ 
FSPDefs: FROM "fspdefs". 
StringDefs: FROM "stringdef s". 
SystemDefs: FROM "systemdef s" ; 

DEFINITIONS FROM FSPDefs; 

BcdHeap: PROGRAM 

IMPORTS FSPDefs. StringDefs, SystemDefs EXPORTS BcdHeapDefs ■ PUBLIC 
BEGIN 

Heap: PRIVATE ZonePointer <- NIL; 

GetSpace: PROCEDURE [nwords: CARDINAL] RETURNS [p: POINTER] ■ 
BEGIN OPEN SystemDefs; 
np: CARDINAL; 
p ^ MakeNode[Heap, nwords 
INoRoomlnZone ■> 

BEGIN 

np ^ MAX[PagesForWords[nwords + ZoneOverhead + 1 — NodeOverhead--] , 2]; 

AddToNewZone[Heap, AnocatePages[np] . np*A1toDef s.PageSize, FreePagesj; 

RESUME 

END]; 
RETURN 
END; 

FreeSpace: PROCEDURE [p: POINTER] - 
BEGIN 

FreeNodeCHeap, p]; RETURN 
END; 

GetString: PROCEDURE [nchars: CARDINAL] RETURNS [p: STRING] ■ 
BEGIN 

OPEN StringDefs; 

p ^ GetSpace[WordsForString[nchars]]; 
pt ir [lengthiO, maxlength:nchars, text:]; 
RETURN 
END; 

FreeString: PROCEDURE [s: STRING] « LOOPHOLE[FreeSpace]; 

InitHeap: PROCEDURE - 
BEGIN 

IF Heap # NIL THEN EraseHeapC]; 
Heap ♦- 

MakeNewZone[SystemDefs.AnocatePages[8], 8*A1 toDefs.PageSize, SystemDefs. FreePages]; 
RETURN 
END; 

EraseHeap: PROCEDURE - 
BEGIN 

DestroyZone[Heap]; 
Heap ^ NIL; 
RETURN 
END; 

END. 


